| SelectFailedActionExecute method |
Applies to
TGUITestRunner
Declaration
Procedure SelectFailedActionExecute(Sender: TObject);Implementation
procedure TGUITestRunner.SelectFailedActionExecute(Sender: TObject);
var
i: integer;
ANode: TTreeNode;
begin
{ deselect all }
ApplyToTests(TestTree.Items[0], DisableTest);
{ select failed }
for i := 0 to FailureListView.Items.Count - 1 do
begin
ANode := TTreeNode(FailureListView.Items[i].Data);
SetNodeState(ANode, true);
end;
UpdateStatus;
End; |
|
|